home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / amos / amos_col.lha / AMOS-COL / Zoomer.amos / Zoomer.amosSourceCode < prev   
AMOS Source Code  |  1980-01-10  |  1KB  |  52 lines
  1. 'By Delta/Opium
  2. '
  3. '�ukasz ï¿½elezny
  4. 'ul. W�oska 4D/6 
  5. '42-612 Tarnowskie G�ry  
  6. 'Poland
  7. '
  8. 'Date: 05.1997 
  9. '
  10. Unpack 1 To 0
  11. Screen Open 1,320,256,8,Lowres
  12. Cls 0 : Curs Off : Flash Off : Get Palette 0 : Cls 0
  13. ZOM=0 : I=0
  14. X1=140 : X2=180
  15. Y1=108 : Y2=148
  16. Do 
  17.    ZOM=0 : I=0
  18.    X1=140 : X2=180
  19.    Y1=108 : Y2=148
  20.    Repeat 
  21.       Trap Zoom 0,X1-ZOM-I,Y1-ZOM+I,X2+ZOM+I,Y2+ZOM-I To 1,130,98,180,148
  22.       ZOM=ZOM+15
  23.       X1=X1-4
  24.       Y1=Y1+2
  25.       X2=X2-5
  26.       X2=X2+3
  27.    Until ZOM>50
  28.    Repeat 
  29.       Trap Zoom 0,X1-ZOM-I,Y1-ZOM+I,X2+ZOM+I,Y2+ZOM-I To 1,130,98,180,148
  30.       ZOM=ZOM-15
  31.       X1=X1+2
  32.       Y1=Y1-4
  33.       X2=X2+5
  34.       X2=X2-1
  35.    Until ZOM<-10
  36.    Repeat 
  37.       Trap Zoom 0,X1-ZOM-I,Y1-ZOM+I,X2+ZOM+I,Y2+ZOM-I To 1,130,98,180,148
  38.       ZOM=ZOM+5
  39.       X1=X1-2
  40.       Y1=Y1+4
  41.       X2=X2-5
  42.       X2=X2+1
  43.    Until ZOM>50
  44.    Repeat 
  45.       Trap Zoom 0,X1-ZOM-I,Y1-ZOM+I,X2+ZOM+I,Y2+ZOM-I To 1,130,98,180,148
  46.       ZOM=ZOM-5
  47.       X1=X1+4
  48.       Y1=Y1-2
  49.       X2=X2+5
  50.       X2=X2-3
  51.    Until ZOM<-10
  52. Loop